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-- File DebugUtilities.mesa 
-- Last edited by 

Sandman; April 24, 1978 4:43 PM 

Barbara; June 28, 1978 9:40 AM 

DIRECTORY 

CommandDefs: FROM "commanddef s" USING [Wri teSignalString] , 
ControlDeFs: FROM "controldef s" USING [FrameHandle, Global FrameHandle], 
CoreSwapDefs: FROM "coreswapdef s" USING [SVPointer] , 
DebugBreakptDefs: FROM "debugbreakptdef s" USING [ 

SourceFil eMissing, StringMatchFailure, StringTooLong] , 
DebugContextDefs: FROM "debugcontextdef s" USING [ 

IncorrectVersion, Inval idGlobalFrame, Inval idlmageFile, InvalidPSB, 

Wri teGI Ob al Context , Wri teLocal Context], 
DebugData: FROM "debugdata" USING [ 

gContext, IContext, level, pContext, StatePtr], 
DebuggerDefs: FROM "debuggerdef s" USING [ 

AmIaRecord, ClobberedAccessLink , ClobberedFrame, FormatRecord, 

NoP rev ious Frame, Symbol Tab 1 eNotFound], 
DebugMiscDef s : FROM "debugmiscdef s" USING [commander], 
DebugSymbolDefs: FROM "debugsymbol defs" USING [CheckDCache], 
DebugUtilityDefs: FROM "debugutil itydef s" USING [ 

CoreSwap, DebuggerError , Inval idAddress , LoadStatelnval id, MREAD, 

NonExistentMemoryPage, NoUserProcs Loaded] , 
ImageDefs: FROM "imagedefs" USING [StopMesa], 
lODefs: FROM "iodefs" USING [ 

CR, LineOverflow, NewLine, NUL, Rubout, WriteChar, WriteOctal. 

WriteString], 
Mopcodes: FROM "mopcodes", 

ProcessDefs: FROM "processdef s" USING [Aborted, CurrentPSB], 
StringDefs: FROM "stringdefs" USING [Inval idNumber] , 
SymbolTableDefs: FROM "symbol tabledefs" USING [NoSymbolTable] , 
SystemDefs: FROM "systemdefs" USING [ 

Al locateHeapNode , AllocateHeapString , FreeHeapNode, FreeHeapString] , 
TrapDefs: FROM "trapdefs" USING [ResumeError] ; 

DebugUtilities: PROGRAM 

IMPORTS DDptr: DebugData, CommandDefs, DebugBreakptDefs, DebugContextDefs, 

DebuggerDefs, DebugMiscDefs , DebugSymbolDefs, DebugUtilityDefs, lODefs, 

ProcessDefs, StringDefs, SymbolTableDefs, SystemDefs, TrapDefs 
EXPORTS DebugUtilityDefs, DebugMiscDefs 
SHARES ProcessDefs » 

BEGIN 

DebugProceed: PUBLIC SIGNAL « CODE; 

DebugAbort: PUBLIC SIGNAL = CODE; 

ControlDEL: PUBLIC SIGNAL = CODE; 

Quit: PUBLIC SIGNAL = CODE; 

LookupFail: PUBLIC SIGNAL [s: STRING] = CODE; 

KillSession: PUBLIC SIGNAL = CODE; 

CommandNotAllowed: PUBLIC SIGNAL = CODE; 

resetdebugger: PROCEDURE [sc: ControlDefs . FrameHandle, 

sg: ControlDefs .GlobalFrameHandle, ss: CoreSwapDefs .SVPointer] » 

BEGIN 

DDptr. level ^ DDptr. level -1; 

DDptr. StatePtr <- ss; 

IF sc # NIL THEN DebugContextDefs .Wri teLocalContext[sc] 

ELSE IF sg ff NIL THEN DebugContextDefs .Wri teGl obalContext[sg] 

ELSE DDptr. pContext <- DDptr . IContext ^ DDptr . gContext <- NIL; 

RETURN 

END; 

DebugCommand: PUBLIC PROCEDURE [sp: CoreSwapDefs .SVPointer] « 

BEGIN 

OPEN DebugBreakptDefs, DebugMiscDefs, lODefs, DebugUtilityDefs, DebuggerDefs, DebugContextDefs, Comma 
♦♦ndDefs; 

savlcontext: ControlDefs . FrameHandle ^ DDptr . IContext; 

savgcontext: ControlDefs .Global FrameHandle ^ DDptr .gContext; 

savStatePtr: CoreSwapDefs .SVPointer ^ DDptr .StatePtr ; 

FR: FormatRecord <- 

FormatRecord[indentation: 2, symid: TRUE, firstsym: TRUE, 
symdel im: '«, intersym: CR, startchar: NUL, termchar: NUL]; 

DDptr. level ^ DDptr. level + 1; 
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DDptr.StatePtr ^ sp; 
WriteLocal Context [MREAD[0sp.clest]]; 
DDptr.pContext <- MREAD[ProcessDef s .CurrentPSB] ; 
DO 
BEGIN 

CheckDStringsC]; DebugSymbolDef s .CheckDCache[] ; 
WriteEOL[]; FR.firstsym <- TRUE; 

THROUGH [l.,DDptr. level] DO WriteChar[ '>] ENDLOOP; 
commander[LOOPHOLE[MREAD[0sp.dest]], MREAD[ProcessDefs .CurrentPSB] 1 
Rubout "> 

BEGIN WriteSignalString[del]; CONTINUE END; 
CommandNotAllowed •«> 

BEGIN WriteSignalStringCnotallowed]; CONTINUE END; 
ControlDEL «> 

BEGIN WriteSignalString[aborted]; CONTINUE END; 
DebugAbort, ProcessDefs .Aborted => CONTINUE; 
SymbolTableNotFound, SymbolTableDefs .NoSymbol Table ■> 

BEGIN WriteEOL[]; WriteSignalString[nosymtab] ; CONTINUE END; 
LookupFail => 

BEGIN WriteEOL[]; Wri teChar[ ' 1 ] ; Wri teString[s] ; CONTINUE END; 
StringTooLong, LineOverflow »> 

BEGIN WriteEOL[]; Wri teSignalString[toolong] ; CONTINUE END; 
SourceFileMissing «> 

BEGIN 

WriteEOL[]; 

WriteSignalString[f ile] ; 

IF sourcename # NIL THEN WriteString[sourcename] 

ELSE Wr i teS ignal St ring[ compress]; 

CONTINUE 

END; 
StringMatchFail ure «> 

BEGIN WriteEOL[]; Wri teSignalString[string] ; WriteString[s] ; CONTINUE END; 
StringDef s . Inval idNumber => 

BEGIN WriteEOL[]; Wri teSignalString[nuni] ; CONTINUE END; 
KillSession => GOTO kill; 
Quit => GOTO abort; 
DebugProceed -> EXIT; 

UNWIND => resetdebugger[savlcontext, savgcontext, savStatePtr]; 
LoadStatelnval id =»> 

BEGIN WriteEOL[]; WriteSignalString[notal lowed] ; CONTINUE END; 
Inval idAddress => 

BEGIN WriteEOL[]; Wri teSignalString[notal lowed] ; CONTINUE END; 
NonExistentMemoryPage «> 

BEGIN WriteEOL[]; Wri teSignalString[notal lowed] ; CONTINUE END; 
TrapDef s . ResumeError »> 

BEGIN WriteSignalStringCresume]; CONTINUE END; 
ClobberedFrame => 

BEGIN WriteOctal[f]; WriteSignalString[clobf r] ; CONTINUE END; 
NoPreviousFrame => 

BEGIN WriteOctal[f]; Wri teSignalString[nul 1 ] ; CONTINUE END; 
Inval idGl obal Frame «> 

BEGIN WriteOctal[f]; WriteSignalString[ngf ] ; CONTINUE END; 
Inval idlmageFile => 

BEGIN WriteString[image]; Wri teSignalString[nimage] ; CONTINUE END; 
IncorrectVersion => 

BEGIN WriteString[file]; Wr iteSignalStr ing[version]; RESUME END; 
InvalidPSB => 

BEGIN WriteOctal[psb]: WriteSignalString[npsb] ; CONTINUE END; 
ClobberedAccessLink »> 

BEGIN WriteOctal[f]; WriteSignalString[cloba] ; CONTINUE END; 
AmIaRecord => RESUME[FALSE] ; 
NoUserProcsLoaded => 

BEGIN WriteSignalString[notloaded]; CONTINUE END 

]; 

EXITS 
kill «> 
BEGIN 

resetdebugger[savlcontext, savgcontext, savStatePtr]; 
CoreSwap[kill 1 

DebuggerError «> ImageDef s .StopMesa[] ; 
DebugAbort => LOOP]; 
SIGNAL DebugAbort; 
END; 
abort «> 
BEGIN 
resetdebugger[savlcontext , savgcontext, savStatePtr]; 
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CoreSwap[quit I DebuggerError ■> ImageDef s.StopMesa[]] ; 
SIGNAL DebugAbort; 
END; 
dontquit, continue ■> NULL; 
END; 

ENDLOOP; 
resetdebugger[sav1context, savgcontext, savStatePtr]; 
RETURN 
END; 

WriteCharZ: PUBLIC PROCEDURE [c: CHARACTER] - 

BEGIN OPEN lODefs; IF c«NUL THEN. RETURN; Wri teChar[c] ; RETURN END; 

WriteEOL: PUBLIC PROCEDURE » 

BEGIN OPEN lODefs; IF -NewLineC] THEN Wr i teChar[CR] ; RETURN END; 

DStringltem: TYPE - RECORD [ 
next: POINTER TO DStringltem. 
string: STRING, 
level: INTEGER]; 

DStringList: POINTER TO DStringltem <- NIL; 

DGetString: PUBLIC PROCEDURE [n: INTEGER] RETURNS [s: STRING] « 
BEGIN OPEN SystemDefs; 
dl: POINTER TO DStringltem; 
s <- Al locateHeapString[n]; 
dl ^ AllocateHeapNode[SIZE[DStringItem]]; 

dlt ^ DStringItem[next : DStringList, level: DDptr. level, string: s]; 
DStringList ^ dl ; 
RETURN 
END; 

DFreeString: PUBLIC PROCEDURE [s: STRING] » 
BEGIN OPEN SystemDefs; 
pdl: POINTER TO DStringltem <- NIL; 
dl: POINTER TO DStringltem <- DStringList; 
UNTIL dl « NIL DO 

IF dl. string « s THEN 
BEGIN 

IF pdl = NIL THEN DStringList ^ dl.next ELSE pdl. next <- dl.next; 
SystemDef s.FreeHeapString[s]; 
FreeHeapNode[dl ]; 
RETURN 
END; 
pdl ♦- dl ; dl ♦- dl .next; 
ENDLOOP; 
RETURN 
END; 

CheckDStrings: PROCEDURE = 
BEGIN 

next, dl: POINTER TO DStringltem; 
pdl: POINTER TO DStringltem *- NIL; 
FOR dl ^ DStringList, next UNTIL dl « NIL DO 
IF dl. level >= DDptr. level THEN 
BEGIN 

IF pdl = NIL THEN DStringList ♦- dl.next ELSE pdl. next ^ dl.next; 
SystemDefs. FreeHeapString[dl .string] ; 
next *- dl .next; 
SystemDefs . FreeHeapNode[dl ] ; 
END 
ELSE BEGIN next ^ dl.next; pdl ^ dl ; END; 
ENDLOOP; 
RETURN 
END; 

DebugUtilitiesInit: PUBLIC PROCEDURE - 
BEGIN 

DDptr, level <- 0; 
DebugSymbolDef s,CheckDCache[] ; 
CheckDStrings[]; 
RETURN 
END; 

END. . . 



